SendMessageʵVBĲѯ - վѶ||ע|ֻվͨվվ Ʒͨ 
  ---------------- ==Ʒ۸== ==Ƿ񱸰ѯ== ==ע== Ӣע ע ע ת DNS 
  ==վƹ== ==== ---------------- ˫·   ̳  
  ECSHOP Vip ݿ Ӧ÷ ܶԱ ѡ  վ ٶȲ 
  ---------------- ==й==  й ֵ ---------------- ==ҵʾ== ҵʾ 
  ---------------- ==ʽ== ---------------- ==ϵ== ʱش  
ﳵʳ⸶ʽ룿ܡ: û ҳ
  ע
   
  ܽվ 
   
  VPS 
  ҵʾ 
  ר 
  ͷ 
  ҳ IDCѶ վӪ վ ҵѶ    ҳ  ֪ʶ ϵͳ ǰλ : ҳ>>VB>б 
SendMessageʵVBĲѯԴ ߣ ʱ䣺2008-02-23  
-ȫ10ǿ40,ȫ!˫߶ϱʳͨ!ҵʾ,.CN,վ480Ԫ,7,ٸ! 
P4799Ԫ/.¸ѹ!APIıĸԸĸͷĿԸʾעǲġĹһṩѡĳӦþ߱ӲSendMessageʵһ 

׼ListBoxTextBoxؼһԾȡĬֵȻд뿽Ḷ́ 

Option Explicit 

'API 
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal 
hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) 
As Long 

Const LB_FINDSTRING = &H18F ' 

Private Sub Form_Load() 

'б26ĸд 
Dim i As Integer 
For i = Asc("A") To Asc("Z") 
List1.AddItem Chr$(i) 
Next 
Text1 = "" 'ıΪ 

End Sub 

Private Sub Text1_KeyPress(KeyAscii As Integer) 

Text1 = "" 'ԭʧ 
Text1.SelLength = 1 'Ƴ 
Text1.SelText = Chr(KeyAscii) 'ʾ̷ 
KeyAscii = 0 'ֹ 
'ListBoxеĿııһѡ() 
List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal 
CStr(Text1.Text)) 

End Sub 

ϳڵĿΪĸĲѯע⣬TextBoxKeyPress¼ҪӦĸĶ
һƪ ApiWindowsеʱ
һƪ ǿSendMessage
http://www.west263.com
Ϣǲɷָһ,Ҫתر,뱣Ϣлл!
[ӡ] [ر]          
0һ
¶ȡ޸Windowsע
VBʵıҹ
ҵֵĻ
Ǩƴ
ΪʲôVBݿ---VB
ڵ
תΪ16
VB:ʶVBļϵͳFSO
򵥽͸λͼʵַ
ĵݿϵݿıȽ
һƪVBдѰ 
һƪҳ--ͻVBݿ֮5 
  ȵעVB߳ӦóVBδ¼ʵVB¼ͨſؼMSCommʹ֪߳VBʵְļٳVB 
  AccessͼϵVisual BasicDataCombo VBMSNϢȺȥĹرհťVisual 
  Basic̬÷֮ʹSetWindowLongı䴰VB̲ߣӡƪVisual 
  BasicPrintʾ㷨htmlзȡ(url򵥽Visual BasicеVBUDPЭдVisual 
  BasicʹWinSΰExcelļתmdbVisual BasicVisual 
  BasicӦóļVBַĿ̨VBʹSQLѯVB.NETȡODBCWINDOWS 2000 ADVANCED 
  SEֹû༭ıؼHierarchical FlexGrid 
  VBʵֳοٳʼVariantStrinVBƿʵʱVBʵִԴƱVBۼʱֵVB̲ߣƪIDCѶ 
 ע й vps ܽվ 
վӪ վ ߻ӯ Ż վƹ Դ 
վ  ˽ ˵ ׬ 
ҵѶ ҵ綯̬  Ϸ Ż̬  洫ý 
 Asp.Net Asp Php Xml Access Mssql Mysql  
 Web Ftp Mail Dns ȫ 
  Word Excel Powerpoint Ghost Vista QQռ QQ FlashGet Ѹ Internet 
Explorer 
ҳ FrontPages Dreamweaver Javascript css photoshop fireworks Flash 
 Java C/C++ VB delphi 
֪ʶ Э 簲ȫ   Cisco 
ϵͳ Win2000 WinXP Win2003 Mac OS Linux FreeBSD 
ҳ | | ϵ | ʽ | ҵ | ۸ | Ѷ |  | վͼ | ʿ | 
      Ȩ (www.west263.com)
      CopyRight (c) 2002~2007 west263.com all right reserved.
      ˾ַĴɶ·904¥ʱࣺ610031
      绰ܻ028-86263408 86263960 86264018 86267838 86262244 86263408 
      ǰѯܻת201 202 203 204 205 206 207 208 
      ۺܻת211 212 213 214 217 218 0Ժηֻ225



      ѯܻת224 223 棺028-86264041 QQ635483282
      ǰѯQQ327314358 241975952 275026793 408235859 2182518 499513144
      ۺQQ634349278 809071471 307742704 512359778 287976517 363783715 
      л񹲺͹ֵҵӪ֤ţB2-20030065


